Introductions

Introduce yourself

We wont go around the room, but take the next couple of minutes to introduce yourself to your neighbors.

Some suggested topics:

• What is your name

• Where you are coming from

• Why you are interested in learning Shiny

Materials

Schedule

Coffee and tea will be available on levels FIXME.

Lunch will be in the FIXME

WiFi - FIXME

If you have any difficulty with your connection please let us know so we can escalate the issue(s) if needed.

Code of Conduct

The Code of Conduct can be found at posit.co/code-of-conduct.

Please review it carefully.

You can report Code of Conduct violations in person, by email, or by phone.

Please see the policy linked above for contact information.

Other useful info

FIXME

Asking for help (Stickies)

Other communication (Discord)

You should have received an email with an invitation and instructions for joining the conference’s discord server.

This workshop has a private channel under Workshops,

This is a great place to ask questions, post resources, memes, or most anything else before, during, and after the workshop.

RStudio Cloud

You can use the following link to join the workshops RStudio cloud space,

Once you have joined you can then select the get-started-shiny assignment,

which should then create a copy of all materials and launch a cloud session for you.

Cloud session

If everything is working you should see something similar to the following,

File organization

Shiny

Shiny is an R package that makes it easy to build interactive web apps straight from R. You can host standalone apps on a webpage or embed them in R Markdown documents or build dashboards. You can also extend your Shiny apps with CSS themes, htmlwidgets, and JavaScript actions.

bslib

The bslib R package provides a modern UI toolkit for Shiny and R Markdown based on Bootstrap.

Shiny + bslib

library(shiny)
library(bslib)

is now the officially recommended way to build Shiny apps.

We will be using both packages throughout the workshop, I’ll try to point out when we are using features specific to one or the other.

One of the easy ways to tell is that bslib functions use snake_case naming conventions while shiny uses camelCase.

App Anatomy

App Components

library(shiny)
library(bslib)

ui = list()

server = function(input, output, session) {}

shinyApp(ui = ui, server = server)

Weather data

We need some data that we will be able to interact with for our Shiny apps today.

I’ve provided recent weather data from Meteostat for airports around the US.

readr::read_csv(here::here("data/weather.csv"))

# A tibble: 23,376 × 17
     id name  airport_code country state region longitude latitude date      
  <dbl> <chr> <chr>        <chr>   <chr> <chr>      <dbl>    <dbl> <date>    
1 72202 Miami KMIA         US      FL    South      -80.3     25.8 2020-01-01
2 72202 Miami KMIA         US      FL    South      -80.3     25.8 2020-01-02
3 72202 Miami KMIA         US      FL    South      -80.3     25.8 2020-01-03
4 72202 Miami KMIA         US      FL    South      -80.3     25.8 2020-01-04
5 72202 Miami KMIA         US      FL    South      -80.3     25.8 2020-01-05
6 72202 Miami KMIA         US      FL    South      -80.3     25.8 2020-01-06
7 72202 Miami KMIA         US      FL    South      -80.3     25.8 2020-01-07
# ℹ 23,369 more rows
# ℹ 8 more variables: temp_avg <dbl>, temp_min <dbl>, temp_max <dbl>,
#   precip <dbl>, snow <dbl>, wind_direction <dbl>, wind_speed <dbl>,
#   air_press <dbl>

Demo 01 - Our first app

library(tidyverse)
library(shiny)
library(bslib)

d = read_csv(here::here("data/weather.csv"))

ui = page_sidebar(
  title = "Temperatures at Major Airports",
  sidebar = sidebar(
    radioButtons(
      inputId = "name", 
      label = "Select an airport",
      choices = c(
        "Hartsfield-Jackson Atlanta",
        "Raleigh-Durham",
        "Denver",
        "Los Angeles",
        "John F. Kennedy"
      )
    ) 
  ),
  plotOutput("plot")
)

server = function(input, output, session) {
  output$plot = renderPlot({
    d |>
      filter(name %in% input$name) |>
      ggplot(aes(x=date, y=temp_avg)) +
      geom_line()
  })
}

shinyApp(ui = ui, server = server)

Your turn - Exercise 01

Open exercises/ex01.R in Posit cloud and execute it via the Run App button in RStudio.

Check that you are able successfully run the Shiny app and are able to interact with it by picking a new airport.

• If everything is working try modifying the code, e.g. try adding or removing a city from radioButtons().

• What happens if you add a city that is not in the weather.csv dataset to the radio button input?

Troubleshooting

A couple of quick tips:

• If the app can’t find the data, make sure you have opened the workshop’s RStudio project

• If you are not using Posit cloud make sure you have the latest versions of shiny, bslib, and tidyverse installed

• If you are stuck, ask a neighbor for help and/or raise your hand and myself or a TA will come by

Layouts

Shiny uses page layout functions as a way to specify the general organization of the UI of an app.

Our first app used a sidebar layout created with page_sidebar(). This layout consists of:

• a title,

• a sidebar (which usually holds inputs or extra information),

• and then a collection of other Shiny UI elements which form the body of the app (a plot in our case).

This sidebar layout is a good place to start for most simple apps, but there are many other layouts that can be used to create more complex and interesting apps.

Shiny vs bslib layouts

Since page_sidebar() uses snake_case we can infer it is from bslib. If you’ve seen older Shiny code you may have seen fluidPage() + sidebarLayout() which come from shiny.

There are direct analogues of almost all Shiny page layouts in bslib, either choice is viable and will let you create a working Shiny app.

We have opted to use the bslib layouts because they are more modern and typically have a more user friendly syntax.

UI functions are HTML

One of the neat tricks of Shiny is that the interface is just a webpage, and this can be seen by the fact that UI functions are just R functions that generate HTML.

We can run any of the following in our console and see the HTML output generated:

actionButton("id", "Click me!")
selectInput("test", "Test", choices = c("A", "B", "C"), selectize = FALSE)
img(src = "shiny.png")

Shiny Widgets Gallery

A brief widget tour

Your turn - Exercise 02

We’ve just seen a number of alternative input widgets, starting from the code in exercises/ex02.R try changing the radioButton() input to something else.

What happens if you use an input capable of selecting multiple values, e.g.

• checkboxGroupInput()

• or selectInput() with multiple = TRUE